/// 
/// Author: Jeff Liu
/// Date: 2023-06-05 19:55:06
/// LastEditTime: 2023-06-05 20:01:15
/// LastEditors: Jeff Liu
/// Description: 
/// FilePath: /HCCBJ/src/cls/HCC/SVR/Prod/BP/CDAtoFHIRTest.cls
/// Jeff.liu@intersytems.com
/// 
/// 
/// Author: Jeff Liu
/// Date: 2023-06-05 12:55:36
/// LastEditTime: 2023-06-05 19:54:50
/// LastEditors: Jeff Liu
/// Description: 
/// FilePath: /HCCBJ/src/cls/HCC/SVR/Prod/BP/QPTest.cls
/// Jeff.liu@intersytems.com
/// 
Class HCC.SVR.Prod.BP.CDAtoFHIRTest Extends Ens.BusinessProcessBPL
{

/// BPL Definition
XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
{
<process language='objectscript' request='Ens.StringContainer' response='Ens.Response' height='2000' width='2000' >
<context>
<property name='Stream' type='Ens.StreamContainer' instantiate='1' />
</context>
<sequence xend='200' yend='450' >
<code name='Prepare data' xpos='200' ypos='250' >
<![CDATA[ Set tStream = ##class(%GlobalCharacterStream).%New()
 Do tStream.Write(request.StringValue)
 Set context.Stream = ##class(Ens.StreamContainer).%New()
 Do context.Stream.StreamSet(tStream)
 Do context.Stream.%Save()
]]>
</code>
<call name='HCC to FHIR' target='HCC.SVR.Prod.BP.CDAtoFHIR' async='1' xpos='200' ypos='350' >
<request type='Ens.StreamContainer' >
<assign property="callrequest" value="context.Stream" action="set" />
</request>
<response type='Ens.Response' />
</call>
</sequence>
</process>
}


}
